Option Explicit
Sub P_Sample030()
    Dim myFso As Scripting.FileSystemObject
    Dim myOldName As String
    Dim myNewPath As String
    Set myFso = New Scripting.FileSystemObject
    myOldName = ThisWorkbook.Path & "\P_Test1.txt"        'ʨӷɮ
    myNewPath = ThisWorkbook.Path & "\Tmp1\"            'wʥؼ
    'PWɮתˬd]wɮצW١^
    If Not myFso.FileExists(FileSpec:=ThisWorkbook.Path & "\Tmp1\P_Test1.txt") Then
        myFso.MoveFile myOldName, myNewPath
        'ϥMaskr
        'myFso.GetFile(myName).Move myNewPath
    End If
    Set myFso = Nothing         '
End Sub

